-- card: 10200 from stack: in.6
-- bmap block id: 3988
-- flags: 0000
-- background id: 16130
-- name: User Interface Menu


-- part 1 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=28 top=75 right=132 bottom=154
-- title width / last selected line: 0
-- icon id / first selected line: 15849 / 15849
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Window Types
----- HyperTalk script -----
on mouseUp
  visual dissolve fast
  go cd "Window Types"
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=194 top=75 right=132 bottom=320
-- title width / last selected line: 0
-- icon id / first selected line: 15849 / 15849
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dialog Box Types
----- HyperTalk script -----
on mouseUp
  visual dissolve fast
  go cd "Dialog Types"
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=357 top=75 right=132 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 15849 / 15849
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Alert Box Types
----- HyperTalk script -----
on mouseUp
  visual dissolve fast
  go cd "Alert Types"
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=194 top=154 right=211 bottom=320
-- title width / last selected line: 0
-- icon id / first selected line: 529 / 529
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install Icon in Home Card
----- HyperTalk script -----
on mouseUp
  beep 1
  ShowDialog 1,3759,"Do you want to install the ShowDialog button in your Home stack?",TRUE
  if the result ≠ 1 then exit mouseUp
  set userlevel to 5
  put the short name of this stack into thisStack
  put "Installing icon in Home Stack..."
  push card
  set the cursor to 4
  choose button tool
  click at loc of me
  doMenu "Copy Button"
  visual effect wipe left
  go home
  doMenu "Paste Button"
  set rect of cd btn "Install Icon in Home Card" to 17,66,122,113
  set name of cd btn "Install Icon in Home Card" to thisStack
  set the cursor to 3
  put "Drag the ShowDialog button to where you want it..."
  wait until the mouse is down
  repeat until the mouse is up
    set loc of cd btn thisStack to the mouseLoc
  end repeat
  put "on mouseUp" & return into setScript
  visual effect dissolve
  put "visual barn door close to black" & return after setScript
  put "visual effect iris open to inverse" & return after setScript
  put "visual effect dissolve" & return after setScript
  put "go stack" && the NumToChar of 34 & thisStack & the NumToChar of 34 & return after setScript
  put "end mouseUp" & return after setScript
  set script of cd btn thisStack to setScript
  choose browse tool
  visual effect dissolve
  go back
  play harpsichord "ee c"
  put "All done!"
end mouseUp


-- part 5 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=28 top=154 right=211 bottom=154
-- title width / last selected line: 0
-- icon id / first selected line: 15849 / 15849
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: blank


-- part 6 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=357 top=154 right=211 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 15849 / 15849
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: blank


-- part 7 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=28 top=233 right=290 bottom=154
-- title width / last selected line: 0
-- icon id / first selected line: 15849 / 15849
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: blank


-- part 8 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=194 top=233 right=290 bottom=320
-- title width / last selected line: 0
-- icon id / first selected line: 21243 / 21243
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New in ShowDialog 1.6
----- HyperTalk script -----
on mouseUp
  TextDialog 5748,geneva,10,"2000,2001,2002",1
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=357 top=233 right=290 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 15849 / 15849
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: blank